home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / Lightspeed Source Code / hfs.c next >
Encoding:
C/C++ Source or Header  |  1986-07-20  |  4.1 KB  |  186 lines  |  [TEXT/KAHL]
  1. /*              HFS EXAMPLE
  2.     Modified by John Pence, MacMan, Inc., Houston Texas.
  3.           from MacTutor, Jan,86 issue
  4.              "Programming for HFS" by Miki Schuster.
  5.                
  6.         A "must have" for the serious programmer
  7.          MACTUTOR™ P.O BOX 400
  8.         PLACENTIA, CA 92670
  9.         (714) 630-3730
  10.         
  11. */        
  12. #include "stdio.h"
  13. #include "hfs.h"
  14. #include "pbhdefs.h"
  15.  
  16.  
  17.  
  18. /*extern String ptocstr();   Consulair syntax */
  19.  
  20. extern char *PtoCstr(); /* Lightspeed syntax */
  21. extern int  strlen();
  22. extern char *strncat();
  23.  
  24. extern char *strntac(); /* from the MMSTR project */
  25. extern char *strtac();  /* from the MMSTR project */
  26.  
  27. extern OSErr pbCall();  /* its in the pbcall.lib */
  28.  
  29. /*
  30.  
  31. these were in the article but removed since they're in pbhdefs.h
  32.  
  33. #define PBCloseWD(pb, a)    pbCall(pb, a, 0xA260, 2)
  34. #define PBOpenWD(pb, a)        pbCall(pb, a, 0xA260, 1)
  35. #define PBGetWDInfo(pb, a)    pbCall(pb, a, 0xA260, 7)
  36.  
  37. #define PBHGetVInfo(pb, a)    pbCall(pb, a, 0xA207 )
  38. #define PBGetCatInfo(pb, a)    pbCall(pb, a, 0xA260, 9)
  39. #define PBGetFInfo(pb, a)    pbCall(pb, a, 0xA00C )
  40. */
  41.  
  42. void fileproc();
  43.  
  44. main()
  45. {
  46.     enumerate(&fileproc);
  47. }
  48.  
  49. enumerate(fileproc)
  50.     int (*fileproc)();
  51.     {
  52.     HVolumeParam vp;
  53.     DirInfoParam dp;
  54.     WDParam wp;
  55.     Str255 vname;
  56.     Str255 dname;
  57.     int32 **dirs;
  58.     int32 *dirp;
  59.     int32 dir;
  60.     int ok;
  61.     
  62.     /* initialize params */
  63.     vp.ioNamePtr = &vname;
  64.     dp.ioNamePtr = &dname;
  65.     wp.ioNamePtr = NULL;
  66.     wp.ioWDProcID = 'ENUM';
  67.     
  68.     /* enumerate each volume */
  69.     for (vp.ioVolIndex = 1; !PBHGetVInfo(&vp, 0); vp.ioVolIndex++)
  70.         {
  71.         dp.ioVRefNum = vp.ioVRefNum;
  72.         
  73.         /* if MFS volume, enumerate each file */
  74.         if (FCBLen == -1 || vp.ioVSigWord == mfsSigWord)
  75.             for (dp.ioFDirIndex = 1; !PBGetFInfo(&dp, 0); dp.ioFDirIndex++)
  76.                 (*fileproc)(dp.ioVRefNum, &vp, &dp);
  77.             
  78.         /* if HFS volume, allocate space for directory queue */
  79.         else if (dirs = (int32 **) NewHandle(vp.ioVDirCnt * sizeof(int32)))
  80.             {
  81.             /* place root into directory queue */
  82.             HLock(dirs);
  83.             dirp = *dirs;
  84.             *dirp++ = rootDirID;
  85.             
  86.             /* enumerate directory queue */
  87.             while (dirp > *dirs)
  88.                 {
  89.                 dir = *--dirp;
  90.                 wp.ioVRefNum = dp.ioVRefNum;
  91.                 wp.ioWDDirID = dir;
  92.                 
  93.                 /* open working directory */
  94.                 if (!PBOpenWD(&wp, 0))
  95.                     {
  96.                     /* enumerate files in directory */
  97.                     for (dp.ioFDirIndex = 1, dp.ioDrDirID = dir; !PBGetCatInfo(&dp, 0); dp.ioFDirIndex++, dp.ioDrDirID = dir)
  98.                         {
  99.                         /* if offspring is a directory, place on queue */
  100.                         if (dp.ioFlAttrib & ioDirFlg)
  101.                             *dirp++ = dp.ioDrDirID;
  102.                         
  103.                         /* if offsprint is a file, call argument function */
  104.                         else
  105.                             (*fileproc)(wp.ioVRefNum, &vp, &dp);
  106.                         }
  107.                     
  108.                     /* all done with working directory */
  109.                     PBCloseWD(&wp, 0);
  110.                     }
  111.                 }
  112.             DisposHandle(dirs);
  113.             }
  114.         }
  115.     }
  116.  
  117. char *pathname(pname, wdrefnum, n)
  118.     char *pname;
  119.     int16 wdrefnum;
  120.     int16 n;
  121.     {
  122.     HVolumeParam vp;
  123.     WDParam wp;
  124.     DirInfoParam dp;
  125.     Str255 dname;
  126.     
  127.     /* initialize params */
  128.     pname[0] = '\0';
  129.     n--;
  130.     vp.ioNamePtr = &dname;
  131.     vp.ioVRefNum = wdrefnum;
  132.     vp.ioVolIndex = 0;
  133.     wp.ioNamePtr = NULL;
  134.     wp.ioVRefNum = wdrefnum;
  135.     wp.ioWDIndex = 0;
  136.     wp.ioWDProcID = NULL;
  137.     dp.ioNamePtr = &dname;
  138.     dp.ioFDirIndex = -1;
  139.     
  140.     /* get volume information */
  141.     if (!PBHGetVInfo(&vp, 0))
  142.         /* if MFS or HFS root, return volume name */
  143.         if (FCBLen == -1 || vp.ioVSigWord == mfsSigWord || vp.ioVRefNum == wdrefnum)
  144.             strncat(pname, PtoCstr(vp.ioNamePtr), n - 1);
  145.         
  146.         /* get working directory information */
  147.         else if (!PBGetWDInfo(&wp, 0))
  148.             {
  149.             /* traverse path from working directory to root */
  150.             dp.ioVRefNum = wp.ioWDVRefNum;
  151.             dp.ioDrParID = wp.ioWDDirID;
  152.             do
  153.                 {
  154.                 /* get next node information */
  155.                 dp.ioDrDirID = dp.ioDrParID;
  156.                 if (PBGetCatInfo(&dp, 0))
  157.                     break;
  158.                 
  159.                 /* concatenate node name to result */
  160.                 strntac(strtac(pname, ":"), PtoCstr(dp.ioNamePtr), n - 1);
  161.                 n -= strlen(dp.ioNamePtr) + 1;
  162.                 }
  163.             while (dp.ioDrDirID != rootDirID);
  164.             
  165.             /* remove last colon */
  166.             pname[strlen(pname) - 1] = '\0';
  167.             }
  168.     return pname;
  169.     }
  170.  
  171. void fileproc(wdrefnum, vp, fp)
  172.     int16 wdrefnum;
  173.     HVolumeParam *vp;
  174.     DirInfoParam *fp;
  175.     {
  176.     char name[256];
  177.     
  178.     
  179.     pathname(name, wdrefnum, sizeof name);
  180.     PtoCstr(fp->ioNamePtr);
  181.     printf("%s:%s\n", name, fp->ioNamePtr);
  182.     CtoPstr(fp->ioNamePtr);
  183.     }
  184.  
  185.  
  186.